home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / MacFormat 92 CD / Shareware Plus / Utilities / FolderSynchronizer 1.8.9 / FoldersSynchronizer / FoldersSynchronizer.9 / AllScripts_17_ScrCopyright.ls < prev    next >
Encoding:
Text File  |  2000-05-10  |  1.3 KB  |  51 lines
  1. on mouseWithin me
  2.   set mySprite to the spriteNum of me
  3.   set myMember to the member of sprite mySprite
  4.   set myMouseW to word the mouseWord of field myMember
  5.   if myMouseW contains "http" then
  6.     set myCastNum to the number of member "BtnUpMano0"
  7.     set myMaskNum to the number of member "BtnUpManoMask"
  8.     cursor([myCastNum, myMaskNum])
  9.   else
  10.     cursor(-1)
  11.   end if
  12. end
  13.  
  14. on mouseLeave
  15.   cursor(-1)
  16. end
  17.  
  18. on mouseDown me
  19.   global gArancio, gBlu
  20.   if the frameLabel = "Uscita" then
  21.     exit
  22.   end if
  23.   set mySprite to the spriteNum of me
  24.   set myMember to the member of sprite mySprite
  25.   set myMouseW to the mouseWord
  26.   set myPage to word myMouseW of field myMember
  27.   if myPage contains "http" then
  28.     repeat while the stillDown and (myMouseW = the mouseWord)
  29.       set the foreColor of word myMouseW of field myMember to gArancio
  30.       updateStage()
  31.     end repeat
  32.     set the foreColor of word myMouseW of field myMember to gBlu
  33.     updateStage()
  34.     if myMouseW = the mouseWord then
  35.       set vai to 1
  36.     else
  37.       set vai to 0
  38.     end if
  39.     if vai = 1 then
  40.       gotoNetPage(myPage, "NewPage")
  41.       set the mouseUpScript to EMPTY
  42.       set the timeoutScript to EMPTY
  43.       go(the frame)
  44.     end if
  45.   else
  46.     if the frameLabel <> "Uscita" then
  47.       GoLista()
  48.     end if
  49.   end if
  50. end
  51.